home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / rexx / xdmd1.lha / ReqFind.xdme < prev    next >
Text File  |  1994-10-26  |  476b  |  20 lines
  1. /* ReqFind.xdme */
  2.  
  3. if ~show("L","rexxreqtools.library") then
  4.     if ~addlib("rexxreqtools.library", 0, -30) then exit
  5.  
  6. if ~show("L","rexxarplib.library") then
  7.     if ~addlib("rexxarplib.library",0,-30,0) then exit
  8.  
  9. F = rtgetstring(GetEnv('F'),"Enter Find String","XDMD Find Requester","_Next|_Prev|_Set|_Cancel")
  10. F = '(' || F || ')'
  11. if rtresult = 0 then exit
  12. xcom = 'setenv F' F 'findstr' F
  13. xcom
  14. if rtresult = 1 then do
  15.     next
  16. end
  17. else if rtresult = 2 then do
  18.     prev
  19. end
  20.